TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/COMP/TEST/T2.M

Text File | 1992-03-08 | 1.4 KB | 3 lines

⓪ (*$X+,R+,C-*)⓪ module t2;⓪ FROM SYSTEM IMPORT WORD, BYTE, ASSEMBLER, BITNUM, SHIFT, ROTATE;⓪ (*$Emos*)⓪ from prgctrl import termprocess;⓪ import gemdosio, storage;⓪ import inout,strconv,mathlib0;⓪ ⓪ var b, vF, vT: BOOLEAN;⓪!lr2,lr: LONGREAL;sr: REAL; li3,li4,li,li2: LONGint;⓪!lc: LONGCARD;⓪!i: INTEGER;⓪!c: CARDINAL;⓪!ar: ARRAY [0..0] OF ARRAY [0..0] OF CARDINAL;⓪!first, ok: BOOLEAN;⓪!se: SET OF CHAR;⓪ ⓪ CONST z = -100+INT('C');⓪ ⓪ TYPE f = [z..22(*TSIZE(INTEGER)*)];⓪ ⓪ PROCEDURE x (a: LONGARRAY OF WORD);⓪"VAR p: POINTER TO ARRAY [0..MAX(LONGCARD)] OF CARDINAL;⓪"BEGIN⓪$ASSEMBLER BREAK END;⓪$IF ORD (a[li]) = 0 THEN END;⓪$⓪$IF ORD (a[lc]) = 0 THEN END;⓪$p:= NIL;⓪$IF ORD (p^[lc]) = 0 THEN END;⓪"END x;⓪"⓪ begin⓪"x (ar);⓪"lc:= storage.allavail();⓪"termprocess (-39)⓪ end t2.⓪ ə
(* $FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$000002B8$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4$FFEB5DC4Ç$00000292T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$FFEF771E$00000205$00000251$FFEF771E$000002C6$000002BC$000002DC$000002B1$00000292$0000027C$0000000A$FFEF771E$FFEF784E$FFEF784E$FFEF784E$00000205¼Çé*)